home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / bbs / wwbbs.lha / WWBBS / Rexx / Session.rexx
OS/2 REXX Batch file  |  1994-09-18  |  462b  |  40 lines
  1. /*
  2. ** $VER: Session.rexx 2.0 (21.8.94)
  3. */
  4.  
  5. options results
  6.  
  7. dummy
  8.  
  9. if local=0 then do
  10.     delay 150
  11. end
  12.  
  13. ansidetect
  14.  
  15. if local=0 then do
  16.     logon
  17. end
  18. if local=1 then do
  19.     logon 'Sysop'
  20. end
  21. resultbuff = result
  22. if resultbuff='NEWUSER' then do
  23.     /* New user routine */
  24.     register
  25.     rcbuff = rc
  26.     if rcbuff = 1 then do
  27.          edituser
  28.          editprefs
  29.     end
  30. end
  31.  
  32. dologon
  33. rcbuff = rc
  34. if rcbuff = 1 then do
  35.     /* Regular session routine */
  36.     readnews new
  37.     runmenu 'Main'
  38.     dologoff
  39. end
  40.